home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / rrspacing.z / rrspacing
Encoding:
Text File  |  1998-10-30  |  2.9 KB  |  89 lines
  1. RRSPACING(3I)                                          Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      RRRRSSPPAACCIINNGG - Returns the reciprocal of the relative spacing of numeric
  6.      model numbers near the argument value
  7.  
  8. SSYYNNOOPPSSIISS
  9.      RRRRSSPPAACCIINNGG (([XX==]_x))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      Fortran 90
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      The RRRRSSPPAACCIINNGG intrinsic function returns the reciprocal of the
  19.      relative spacing of the numeric real model numbers near the argument
  20.      value.  For more information on the real number model, see the
  21.      MMOODDEELLSS(3I) man page.  It accepts the following argument:
  22.  
  23.      _x    Must be of type real
  24.  
  25.      RRRRSSPPAACCIINNGG is an elemental function.  The name of this intrinsic cannot
  26.      be passed as an argument.
  27.  
  28. NNOOTTEESS
  29.      This routine is implemented on CRAY T90 systems that support IEEE
  30.      arithmetic by calls to scalar-only library routines.
  31.  
  32. RREETTUURRNN VVAALLUUEESS
  33.      The result type and type parameter are the same as _x.  The result has
  34.      the value
  35.      |x multiplied by b**-e | multiplied by b**p, where _b, _e, and _p are
  36.      defined in the real number model.
  37.  
  38. EEXXAAMMPPLLEESS
  39.      The following code was run on several systems:
  40.  
  41.           REAL(KIND=4) r4
  42.           REAL(KIND=8) r8
  43.           REAL(KIND=16) r16
  44.           REAL rd
  45.           r4=-3.0_4
  46.           r8=-3.0_8
  47.           r16=-3.0_16
  48.           rd=-3.0
  49.           PRINT *,'RRSPACING r4=',RRSPACING(r4)
  50.           PRINT *,'RRSPACING r8=',RRSPACING(r8)
  51.           PRINT *,'RRSPACING r16=',RRSPACING(r16)
  52.           PRINT *,'RRSPACING rd=',RRSPACING(rd)
  53.           END
  54.  
  55.      On a CRAY Y-MP E system, the results were as follows:
  56.  
  57.           RRSPACING r4= 12582912.
  58.           RRSPACING r8= 105553116266496.
  59.           RRSPACING r16= 2.9710560942849126597578981376E+28
  60.           RRSPACING rd= 105553116266496.
  61.  
  62.      On an IRIX system, the results were as follows:
  63.  
  64.           RRSPACING r4= 12582912.
  65.           RRSPACING r8= 6755399441055744.
  66.           RRSPACING r16= 1.216944576219100225436835007716096E+32
  67.           RRSPACING rd= 12582912.
  68.  
  69.      On a UNICOS/mk system, the results were as follows:
  70.  
  71.           RRSPACING r4= 12582912.
  72.           RRSPACING r8= 6755399441055744.
  73.           RRSPACING rd= 6755399441055744.
  74.  
  75.      On a CRAY T90 system that supports IEEE floating-point arithmetic, the
  76.      results were as follows:
  77.  
  78.           RRSPACING r4= 12582912.
  79.           RRSPACING r8= 6755399441055744.
  80.           RRSPACING r16= 7.788445287802241442795744493830144E+33
  81.           RRSPACING rd= 6755399441055744.
  82.  
  83. SSEEEE AALLSSOO
  84.      MMOODDEELLSS(3I)
  85.  
  86.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  87.      printed version of this man page.
  88.  
  89.